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FACILITY: RMS32 


ABSTRACT: 
RMS-32 user control block allocation and initialization macros. 
Note that changes made to any of the structure definitions must 
be reflected also in the file RMSMAC.REQ which contains the 
BLISS macros. 

ENVIRONMENT: 
USER PROGRAMS RUNNING VAX/VMS 

AUTHOR: L F LAVERDURE, CREATION DATE: 7-NOV-77 

MODIFIED BY: 

v03-015 RASO325 Ron Schaefer 11-Jul-1984 


Convert the longword alignment check in the $xxx macros, 

to a informational message since alignment is not required and 
it potentially pcroye x2 prog grams if any data buffer 

above (such as NAMSC RSS) is not longword sized. 
Unfortunately, MACRO=32 doesn't have a ".INFO'' directive. 

so the message is hand-crafted using the "’.PRINT’ directive. 


v03-014 DGB0036 Donald G. Blair 26-Mar-1984 
Add fields to porect ioe xab: XABSB PROT_OPT, 
XABSL_ACLBUF, XABSW_ACLSIZ, XABSW_ATLLEN? 
XABSL-ACLCTX, XABSL_A St $ 


v03-013 DASO004 David Solomon 28-F eb-1984 


Oe Oe Be Se Oe Be Oe Se Be Se Be Ge Be Ge Be Be Be Be Se He He OHS Oe Oe he oe Oe Oe Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Oe Be Ok Oe He Oe Oe Oe Oe OH Oe we 


silicide li iain tose eagles tech 


' 
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Change the $xxx assembly-time initialization macros 

irom, using -LONG to using .ADDRESS when 

initializing longword fields in the control blocks to -E 
allow these macros to be used in a PIC shareable image. 


v02-009 cpS0001 C Saether 3-Nov-1981 “E 


; Add mapper for FABSV_LNM_ MODE, FABSV_CHAN_MODE, : 
; FABSV_FILE_MODE, and RABSB_PROT_MODE. ; 
: VO3-012 RASO169 Ron Schaefer 12-Jul-1983 m 
: Add NOP parameter, delete SXABACE macros and fix 

: GBC parameter bugs in $SFAB macros. 

; v03-011 LJA006S Laurie J. Anderson 01-Mar-1983 

; Add initialization of CXRBFZ in XABCXR. 4. 
; vO03-010 JwHO190 Jeffrey W. Horn 21-Feb-1983 | $$ 
3 Add S$XABACE macros for the Access Control Entry ACE. 3s 
: v03-009 DAS0002 David Solomon 09-Feb-1983 $$ 
: Add SXABTRM macros for the terminal XAB. oe 
; v03-008 LJA0052 Laurie J. Anderson 11-Jan-1983 | $$ 
; Fix LJA0046 - add the missing .ENDC | se 
: V03-007 LJA0046 Laurie J. Anderson 21-Dec-1982 | $$ 
; Add quad word key data types. ' 
: V03-006 RASO104 Ron Schaefer 23-Nov-1982 i 
$ Correct SS$TYPE macro for registers AP, FP and SP. 

: v03-005 LJA0035 Laurie J.Anderson 27-0c t-1982 

; Allow initialization of the key buffer address in XABCXR 

; v03-004 RASO100 Ron Schaefer 14-Oct-1982 

Add the $XABSUM_STORE macro that had never previously existed. el 
; v03-003 JWHO001 Jeffrey W. Horn 7=Jul-1982 | : 
H ADD XABJNL, Journaling XAB. ll 
; v03-002 LJA0010 Laurie Anderson 6-Jul-1982 

: Fix problem with initialization of RABSL_XAB 

F v03-001 LJA0009 Laurie Anderson 14-Jun-1982 

2 Add RABSL_XAB, to support new context XAB (XABCXR) 

3 Add two new XABs (of type context), one for FAB, other 

: for RAB, XABCXF and XABCXR, respectively. : 

; Fixed the COMPAT and STRUCT XAB fields which were still in. -€ 
; v02-012 RAS0061 Ron Schaefer 15-Jan-1982 A 
: Add support for FABSW_GBC. 

: v02-011 KBT0002 Keith B Thompson 8-Jan-1982 

: Remove COMP, change STRUCT to PROLOG and add MTACC 

; v02-010 RAS0048 Ron Schaefer 19-Nov-1981 
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v02-008 


v02-007 


v02-006 


v02-005 


v004 


v003 


vo02 


H 
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Change name of xab field to ‘'struct’’ in key xab. 
Change declaration of ‘'struct’’ and ‘‘compat’’ within 
key xab to use symbolic values. 


PSK0001 Paulina S$ Knibbe 22-Jun-1981 
Add support for the long XABKEYs 
SPR38242 Ron Schaefer 16-Jun-1981 


Fix the run-time initial ization ig ay nee ssporete on 
symbolic bit values and constants to te 
user has specified DEFAULT DISPLACEMENT "WORD / VTE. 


rages 9 Maria del C. Nasr 12-May-1981 
Use old symbol for new Length of ‘eechw date and time XAB. 


SPR35529 P Lieberwirth 12-Feb-1981 13:15 

Fix bug in SSTYPE macro that Led to bad code when user 
ad ed displacement mode with displacement=0. This 
bug occured in $xxx_STORE macros. 


MCNOO004 aria del C. 17-Dec-1980 
ny e length of MEXABDAT SER oy to include backup date 
and time. 


Boor Herb Jacobs 8-Jul-80 
Simplify SFAB, SRAB $NAM for assembly performance now 
that they are stable. 


RASO001 R SCHAEFER 06-Sep-79 14:28 
Correct spurious error from $XABKEY tor FLG=<CHG> 


oak oe ee oe ee Y 


2 | 
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; SFAB MACRO TO INITIALIZE A FAB 


.MACRO SFAB FAC=, SHR=,FNA=0,FNS=0,DNA=0,- ; 
DNS=6,FNM=,DNM=.RTV= gORG=SEQ,RAT=,- ; 
FOP=, KAB=0..MRS=0, JNL=0,MRN=0, - ; 
ALa=6, DEQ= -BLS=0,NAM= ,RFM=VAR,~ ; 
FSz=0 BKS= CTX= BS7=8,GBC=0,- mM 
_MODE=0 €HAN_MODE=0,f ILE_MODE=0 <a 
$F ABDEF SEFIN E SYMBOLS $b 
$$R_TABINIT FABSC Bib, FABSC _BLN 
$SR~VBF SET FAB,<FOP> 
meersee tI P oe 
388, TAB+FABSL_ALQ- 
GORD DEQ 
$$R VBFSET FAB, <FAC> 
BYTE $$.TMP 
isn verset FAB, <SHR> 
BYTE $$.TMP 
ADDR ESS CTX 
“BYTE 
“IF DF FRBSe "ORG 
-BYTE FABST_'ORG 
LIFF 
BYTE 
-ERROR : UNDEFINED VALUE FOR FIELD : ORG; | 
$5R VOFSET FAB,<RAT> 
[IF DF FABSC_'RFM | 
“BYTE FABST_‘RFM 
“1FF | 
“BYTE | 
-ERROR ; UNDEFINED VALUE FOR FIELD : REM; 
“ADDRESS JNL 
“ADDRESS XAB 
“ADDRESS NAM 
“ADDRESS FNA 
“ADDRESS DNA 
“BYTE FNS 
“BYTE DNS 
[WORD MRS 
“ADDRESS MRN 
-WORD BLS 
-BYTE BKs 
BYTE 


FS2 

ones, TABSEABSU GBC 

-BYTE <<LNM_MODE@F ABSV_LNM_MODE> : <CHAN_MODE@F ABSV_CHAN_MODE> + - 
<FIL MODE @F ABSV" FILE_MODE> 

TIF NE BSz gsz- ; «ERROR = INVALID BYTE SIZE; 


. SAVE 


RMS32MAC.MAR; 1 16-SEP-1984 17:06:28.34 Page 5 RM 


-PSECT SRMSNAM 
MPX= 


P 
ASCII RENME 
$5. TMPx1=.~$. THPX 


$.TAB+F ABSL_FNA 
DRESS 


“ADDR 
"$$. TAB+F ABSB_FN 
“BYTE $$. TMPR1 


-ENDC 
-1F NB <DNM> 


VE | 
-PSECT SRMSNAM : 
$.T TMPX= =. j s M 
-ASCII ZDNMZ $$ 

$$. TMPX1=.-$$. TMPX $$ 


-ENDC 
.=$$. TABEND 
-ENDM $FAB 


K 
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SRAB MACRO TO INITIALIZE A RAB 


‘MACRO SRAB Ss RAC =SEQ,, ROP= , UBF =0,USZ=0,,- 
RBF=0,R52=0,8KT=0,KBF=0,PBF,- 
KS7=0.P52,KRF=0,RHB=0, FAB=0 


SRABCEF 

$$R_TABINIT RABSC_BID,RABSC_BLN 
$$R_VBFSET RAB,<ROP> 
.=$$. TAB+RABSL_ROP 
«ADDRESS hate 


a vre RABST_ ‘RAC | 
-BYTE 
. ERROR ; UNDEFINED VALUE FOR FIELD: CNST; 
-ENDC 
BYTE T 
«WORD USZ 

D  =RSZ 
- ADDRESS UBF | 
- ADDRES RBF 
- ADDRESS RHE 
- ADDRESS KBF 
-1F NB <PBF> 
-=$$. TAB+RABSL_PBF 
- ADDRESS PBF 
-ENDC 
-BYTE KSZ 


[IF NB <PS2> 
_=$$. TAB+RABSB_PSZ 
YTE  PSZ 


-ENDM $RAB 
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; SNAM MACRO TO INITIALIZE A NAM BLOCK 
-MACRO SNAM RSA=0,RSS=0,ESA=0,ESS=0,RLF=0,NOP= 
SNAMDEF 
$$R_TABINIT NAMSC_BID,NAMSC_BLN 
.=$$. TAB+NAMSB_RSS 
“BYT RS 
*=$$. TAB+NAMSL PSA 
ADDRESS RSA 
$$R VBFSET NAM, <NOP> 
$B'N 


| 
| 
"=$$. TABSNAMSL ESA | 
“ADDRESS ESA 

DDRESS RLF 
eT ABEND 
NAM 


A $$ CS — 


| M4 3 
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_f SXABDAT MACRO TO INITIALIZE XAB OF DATE/TIME TYPE 


-MACRO SXABDAT EDT=0,NXT=0 
$XABDEF 


SXABDATDEF 

$$R_TABINIT XABSC_DAT, XABSC_DATLEN 

$SR-XSET EDT, EDT 

$SR-XSET “NXT NXT 

.=$8. TABEND 

-ENDM = $KABDAT 

: SXABRDT MACRO TO INITIALIZE XAB OF REVISION DATE/TIME TYPE 
.MACRO $XABRDT NXT=0 

SXABDEF 

SXABRDTDEF 

$$R_TABINIT XABSC_RDT,XABSC_RDTLEN 

$$R° 2 NXT ,AXT 
.=$8.TAB | 


-ENDM SXABRDT 


: SXABPRO MACRO TO INITIALIZE XAB OF PROTECTION TYPE 


“MACRO SXABPRO UIC=<0,0>,PRO=,NXT=0 ,MTACC=0,PROT MODE=0- 
ecannee PROT_OPT=,ACLBUF=0,ACLSIZ=0,ACLCTR=0 


EF 
$5RTABINIT KAS$C_PRO,XABSC_PROLEN 
= 


F NE $$. TMP $3R “XSET “MBM, *<*0'X> 
TMP +i 


tt as ee me ae nd at fe Bt fe at mt nd He Pe ne bs Bs tt Ds 


Il IDN,<Y¥>,<R>, $$. TMP2=0 
IF IDN,<Y>,<W>, $$. TMP2=1 
lif IDN.<Y>.<E>. $$.TMP =§ 
lif IDN,<Y¥>,<D>, $$. TMP 
wIF TAP 2-4 

$$.TMP=$$.TMP \ <1a<$$.1TMP1+$$.TMP2>> 

-1IF NE $$.TMP & <1a<$$.TMP1+$$.TMP2>>, $$. TMP1=16 


$$. TMP1=16 ;CAUSE ERROR MESSAGE 
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yee 
END 


dC 
TMP1=$$.TMP1 

F GT $$. IHP1-16, »MEXIT 
a 


GT $$.TMP1-16, .ERROR 
$$R_XSET PR ; 
$$R~ “HSE _MTACC, 


-EN 
$$. 
ll 
-EN 
-11 


SSRIXSET “ACLCTX 

SSR-XSET “NXT NXT 
=$$.T ERD. 

“ENDA. $XABPRO 


> $XABFHC MACRO TO INITIALIZE XAB OF FHC TYPE 
"MACRO SXABFHC NXT=0 
$x KABDE 


$SXABF HCDEF 
$S$R_ TABINIT wt uxt FHC, XABSC_FHCLEN 
SSR. XSET ay 


eSS TABERD. 
“ENDM $XABFHC 
: $XABSUM MACRO TO INITIALIZE XAB OF SUMMARY TYPE 


"MACRO $XABSUM NXT=0 
$XABDEF 


$SXABSUMDEF 
$$R_TABINIT XABSC_SUM,XABS$C_SUMLEN 
$$R- 0 NXT,AXT 


xT, 
.=$8.TAB “3 
.ENDM SXABSUM 


SACLCTX 


: INVALID PRO_FIELD SPECIFICATION; 
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; SXABCXF MACRO TO INITIALIZE XAB OF CONTEXT TYPE ASSOCIATED WITH THE FAB ” 
“MACRO SXABCXF NXT=0 

SXABDEF 

SXABCXF DEF $x 
$$R_TABINiT XABSC_CXF ,XABSC_CXFLEN $x 
S$R-KSET SAXT | $$ 
.=$$. TABEND | ee 
“ENDM = $XABCXF | 
; $SXABCXR MACRO TO INITIALIZE XAB OF CONTEXT TYPE ASSOCIATED WITH THE RAB | “1 
“MACRO $XABCXR NXT=0,CXRBUF=0, CXRBFZ=0 | 1 
$XABDEF | al 
$XABCXRDEF v1 
$$R_TABINIT XABSC_CXR,XABSC_CXRLEN a 
$$R_XSET NXT AXT < 
$SR-XSET “CXRBUF , CKRBUF .£ 
SSREXSET “CXRBFZ,CXRBFZ 


- TABEND 
-ENDM $XABCXR 


— —_ -_ 
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: SXABKEY MACRO TO INITIALIZE XAB OF KEY DEFINITION TYPE 


“MACRO SXABKEY DAN= 0. DFL=0,DTP= S16. FLG= LANE 0- 
IFL=0,KNM=0,LAN=0,NUL=0 REF=0 - 
POS= <i>. $12.NXT=0 PROLOG 


SXABDEF 
SXABKEYDEF 
$$R_TABINIT XABSC_KEY,XABSC_KEYLEN 
S$R-XSET _DAN, DAN 
SSR-XSET “DFLLDFL 
R-XSET “IAN, IAN 
$SR-XSET “IFLA IFL 
$SROXSET “KNM, 
$$R-XSET “LAN, LAN 
$SR-XSET “NUL NUL 
$SR-XSET “REF -REF 
$$R-XSET PROLOG, PROLOG 
: NB, <FLG> 
$$R_VBE SET XAB,<FLG> 


EQ, 
3g NE ,<$$. TMP&XABSM_CHG>,.ERROR ; PRIMARY KEY MAY NOT CHANGE; 


Q,REF,$$. TMP=0 
E REF .$$R_VBFSET KAB,<CHG, DUP> 


-FLG,$$. TMP 


E 
N 


C_"DTP 

$$R_XSET ore. XABSC_ "DTP 
$$.BTPTMP=xaBst_' 

‘ ;ERROR ZUNDEFINED KEY FIELD DATA TYPE; 


.E 
$$R_XSPSET POS> 

GE, <$$. TAPoBS ERROR :MAXIMUM OF 8 SEGMENTS EXCEEDED; 
$$. SPTMP= a$$. TMP 


<$12> 
r <$$. TRE gS ~ERROR ;MAXIMUM OF 8 SEGMENTS EXCEEDED; 
F ~ § Pit PTMP-$$.TMP>,.ERROR ;UNBALANCED POS AND SIZ FIELDS; 
Fé “35 STm ERROR -SiZE OF KEY FIELD MUST BE N 
F GE. <$8, STMP-256 6>,.ERROR :MAXIMUM SIZE OF KEY PreLD EXCEEDED: 
LIF NE.$$.TMP,.ERROR ; SEGMENTED KEYS ONLY ALLOWED FOR STG DATA TYPE; 
I a. <$S. DTPTMP-XABS$C_P 
’ F GT, SS STMPA E> TERROR :MAXIMUM KEY SIZE (16) EXCEEDED FOR PAC DATA TYPE; 


LE,<$$.DTPTMP-XABS$C_BN2> 
IF NE,<S$.STMP=2>,. ERROR ;SIZE MUST BE 2 BYTE FOR BN2 AND IN2 DATA TYPES; 


F LE, <$$.DTPTMP-XAB$C_BN4> 
alt NE,<$$.STMP=4>,.ERROR ;SIZE MUST BE 4 BYTES FOR ING AND BNG DATA TYPES; 
at 


LE.<$$.DTPTMP=XABS$C_BN8> 
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S$R_XSPSET _$12,<0> 


EN 

$$R_XSET NXT NXT 
.=$$. TABEND 

[ENDM = SXABKEY 
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eet NE ,<$$.STMP=8>,.ERROR ;SIZE MUST BE 8 BYTE FOR BN8& AND IN& DATA TYPES; 
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; SXABALL MACRO TO INITIALIZE XAB OF ALLOCATION TYPE 


“MACRO $XABALL vOL= 0,ALN=,AO0P=,LOC=0, RF Is <0,0,0>,- 
LG=0;A1D=6,8K2=0,DEQ=0,NXT=0 
SXABDEF 


SXABALLDEF 
$$R OTABINIT XABSC_ALL ,XABSC_ALLLEN 
$SR_XSET »VOL 


.1F"NB <ALN> 
.1F DF XABSC_"ALN 
$$R_XSET _ALN,XABSC_‘ALN 


IF 
oy ; UNDEFINED VALUE FOR ALIGNMENT FIELD; 


.ENDC 
$$R_VBFSET XAB cAgP> 
$$R-XSET -A0P. $s. 
SSROXSET TL ry “pa 


D> 
IF E $$. TMP-2, .MEXIT 

IF LT $$.TMP, $$R_XSET _RFIO,X 
IF EQ $$.TMP. S$RTXSET “RFI2.X 
IF GT $$. TMP, SS$RIXSET “RFIG.X 
<TMP=SS.1M mP+{ 


-1IF NE $$.TMP=2,.ERROR ; INVALID FILE ID; 
$$R_XSET ALQ,ALQ 


$$R_X XSET 

$SR-XSET _NXT,NXT 
=$$.TABERD 

"ENDM $XABALL 
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: SXABTRM macro to initialize XAB of terminal type (used when ROP ETO set). 
“MACRO $XABTRM NXT=0,1TMLST=0,1TMLST_LEN=0 
SKXABDEF 


SXABTRMDEF 
SSR. Un {gal at TRM,XABSC_TRMLEN 


$ CXSET iN 
$SR-XSET “Timi st »ITMLST 
SSR°XSET “ITMLST “LEN, ITMLST_LEN 
. TABERD 
“ENDM $XABTRM 
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-1F NB <BIN> 


og 3 SRMSNAM 
$$. TMPX= 


ASCII  %BINX 
$$. TMPX1=.-$$. TMPX 
RESTORE 
$$R_XSET _BIS,$$.TMPX1 
$SR-XSET “BIA. $$.TMPX 
~ENDC 
If NB <AIN> 
. SAVE 
PSECT _SRMSNAM 
ASCII %AINZ 
$$. TMPY1=.-$$. TMPY 
RESTORE 
$$R_XSET _AIS, $$. TMPY1 
$SR-XSET “AIA. $$. TMPY 


-ENDC 95 
.1F NB <ATN> 
. SAV 


Mg 34 $RMSNAM 
$.TMPZ=. 


$ 
ASCII ZATNX 
$$. TMPZ1=.-$$. TMPZ 
RESTORE 
$$R_XSET _ATS, $$. TMPZ1 
$SRIXSET “ATA, $$. TMPZ 
~ENDC 
.=$8. TABE 


. TABEND 
-ENDM $XABJNL 


: SXABJNL Macro to initialize XAB of Journal Type 
“MACRO $XABJNL JOP=, - 
B1S=0.A1s=0.ATS=0, - 
BIA=0,AIA=0,ATA=0, = 
BIN=, AIN=, ATN=, = 
NXT='0 
SKABDEF 
SXABJNLDEF 
$$R_TABINIT XABSC_JNL,XABSC_JNLLEN | 
R_XSET T,AXT 
$$R-VBFSET TAB <JOP> 
S$SR-XSET JOP, $$. TMP | 
SSR-XSET “BIS.BIS 
$$R-XSET “AIS-AIS | 
$$R-XSET “ATS,ATS | 
SS$R-XSET “BIA,BIA 
SSR-XSET “AIAAIA 
$$RIXSET “ATAZATA | 
| 
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; SRMSDEFEND ; 
; MACRO TO RELEASE SPACE USED BY RMS MACROS I 
; CALL ONLY AFTER ALL STRUCTURES SET U 


* MACRO eat hy a 
LETE 


JNL 
SXABALL SXABF AC Rit netagintt $$R sue $$R_FSET 


“MDELETE 
“ROELETE $$R_RSET,$S$R_NSET,$SSR_X 1 $r VBF SET, $$R_FVSET 

MDELETE $$R~ RVSE set 53h. reser. $SR Sheger ssh ASPSet. ssi “XSP2SET 
“MDELETE $RMSDE 


-ENDM SRMSDEFEND 


MACRO TO DEFINE ALL RMS SYMBOLS 
(LOCALLY IF GBL IS BLANK ELSE GLOBALLY) 


MACRO SRMSALLDEF GBL 
ABDEF GBL 


RM 
-MACRO SRMSALLDEF 
“ENDM SRMSALLDEF 


—_—_—_—— a 
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; LEVEL = 2 MACROS TO PROCESS RMS STRUCTURES 


ITIALIZATION © 
; AND-GIVE DIAGNOSTIC INFO IF STRUCTURE NOT LONGWORD ALIGNED 
Wie? SSR_TABINIT ID,L 


: S$R_TABINIT MACRO TO PERFORM COMMON RMS STRUCTURE IN 
: 83, .print ; PERACRO=1 I-GENINFO, Generated INFO: RMS BLOCK NOT LONGWORD ALIGNED; 


-BLKB LEN-2 
$$. TABEND=. 
-ENDM $$R_TABINIT 
: $$R_SET MACRO TO INITIALIZE A SPECIFIC FIELD 
TO A VALUE 


~MACRO A tt SET FLD,VAL,SYM 


| 
| 
| 
BY <VAL> 
.MEXIT | 
.ENDC 
.IF DF, SYM'SL°FLD | 
.=$$. TAB+SYM'SL "FLD 

. ADDRESS <VAL> 

EXIT 


.ENDC 

TIF DF, SYM'SW'FLD 

> =$$. TAB+SYM' Sw" FLD 
WORD <VAL> 


. 1 T ~ 
-ENDC | 
LIF DF, SYM'$Q°FLD | 
-=$$.TAB+SYM'SQ'FLD 

“QUAD, <VAL> 

. | 
-ENDC 
ERROR ; UNKNOWN SYM FIELD: FLD; | 
LENDM $$R_SET | 


3 : $8R_ XSP2SET LEVEL 2 MACRO TO STORE INTO SIZ/POS FIELD OF KEY XAB 
MACRO $$R_XSP2SET FLD, VAL, ELEM 

$$R_SET FLO’ELEM, VAL, 
.ENDM = $$R_XSP2SET 

; INTERMEDIATE LEVEL MACROS TO CALL $$R_SET MACRO 

‘ .MACRO $5R -FSET X,Y 


$$R SET FAB 
NDR sér’ “FSET 


-MACRO $$R_RSET X,Y 


Re a ea eS ee : a 
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$$R_SET X,Y,RAB 
.ENOM «= S$R_RSET 


.MACRO ssn -NSET X,Y 
$$R_SET xX 
ENOM $éR’ *NSET 
-MACRO_ $$R_XSET X,Y 
$$R_ SET X,<¥>,XAB 
-ENOM «=. S$R_XSET 
; SSR_XS.SET MACRO TO STORE 8 ELEMENT SIZ/POS FIELD IN KEY XAB 
“MACRO $$R_XSPSET FLD, VAL 
TMP=0 


. 


$.TMP=-1 


eo © © © © & Meee eee Pom Se eeee 


1 | 

| , oF. meant 
. <FLD>,<_ S1Z> 

F £ <x<358>, -ERROR ;MAXIMUM VALUE FOR SIZE ELEMENT EXCEEDED: X; 

IC TRDSSS  STRP Si | 


-EN 
$5R =XSP2SET FLD,X,\$$. TMP 
“ENDR $SR_XSPSET 


! $$R_FVSET MACRO TO STORE COMPLEX BIT MASK IN FAB | 
: -MACRO $$R_FVSET FLD,BITS 
<BITS> 


$$R 
-ENDM $SR_ FVSET 


SSR VBFSET MACRO TO CREATE A BIT MASK FROM | 
; A LIST OF BIT NAMES | 


MACRO S$$R_VBFSET BLK,BITS 


$$. TMP=0 
— X,<BITS> 
F DF gH "x 
LIMB=$$. TMP! <1@BLK '$V_'X> 
~ ERROR ; UNDEFINED BIT VALUE CODE: X; 
-ENDC 


*ENDR 
“ENDM $$R_VBFSET 

> $$R_FCSET MACRO TO STORE A NAMED CONSTANT VALUE IN A 

: FIELD FOR FAB 


-MACRO $$R_FCSET FLD, CNST 
“IF DF FABSC_* 
$$R_FSET FLOTFABSC_"CNST 


Ke 
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LFF 
“ERROR ; UNDEFINED VALUE FOR FIELD : CNST; 
[ENDM $S$R_FCSET 


$SR_RCSET MACRO TO STORE A NAMED CONSTANT VALUE 
IN K FIELD OF THE RAB 


Se ee Oe Ge es 


“MACRO S$R_RCSET FLD,CNST | 
DF_RABSC_*CNST 
$88 RSET FLOGRABSC_*CNST | 
“ERROR ; UNDEFINED VALUE FOR FIELD: CNST; | 
-ENDM S$R_RCSET | 
| 
| 
| 


; $SR_RVSET MACRO TO STORE COMPOUND BIT MASK IN RAB 


“MACRO $$R_RVSET FLD,BITS 
$$R_VBFSET~RAB, <BITS> 
SSR-RSET FLD, s$. TMP 

-ENBM $$R _RVSET 


‘ 
+ 
. 
. 
. 
7 
° 
° 
' 
e; 
e; 
; 
! 
.; 
' 
e. 
' 
.: 
' 
e: 
' 
e; 
' 
; 
' 
.; 
1 
' 
e: 
' 
.; 
' 
e. 
' 
oe 
° 
o 
a 
. 
. 
ei 
1 
e: 
/ 
e: 
1 
e: 
\ 
e. 
. 
.. 
.. 
| 
.. 
° 
° 
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THESE ARE THE MACROS TO STORE INTO FIELDS OF RMS DATA STRUCTURES AT RUN-TIME 
MACRO TO STORE INTO THE FIELDS OF A FAB 


~MACRO SFAB_STORE FAB=RO, SNSS,ATV=,ORG=,RAT=s2. 


=,BKS= =/BS2 
LNM_MODE=.CHAN “MODES FILE. _MODE=,- 
BID=,BLN=,STS=,STV= sFIELDS THAT 
sAREN'T IN $FAB MACRO 

SF ABDEF 

SSTYPE FAB 

. -AFLG=0 ;ZERO ADDRESSING FLAG 

.FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


S1IF NB <FAC>, SSRMS_FVSET FLD=_FAC , BITS=<FAC> , REG="FAB' 
-LIF NB <SHR>, SSRMS_FVSET FLD=—SHR , BITS=<SHR> | REG='FAB' 
-11F NB <FNA>, SSRMS"FASET FLD="FNA , SRC=FNA , REG='FAB' 
-11F NB <FNS>, $SRMS"FSET FLD=_FNS , SRC=FNS , REG="FAB' 
-1IF NB <DNA>, $SRMS"FASET FLD= DNA, SRC=DNA, REG='FAB' 
-1IF NB <DNS>, SSRMS-FSET FLD=_DNS , SRC=DNS , REG="FAB' 
SIIF NB <RTV>, S$SRMS"FSET FLD="RTV . SRC=RTV . REG="FAB' 
-LIF NB <ORG>, $SRMS"FCSET FLD=_ORG , CNST=ORG , REG='FAB’ 
[LIF NB <RAT>, S$SRMS"FVSET FLD=~ =RaT * BITS=<RAT> , REG="FAB" 
[11 NB <FOP>, $SRMS"FVSET FLD="FOP , BITS=<FOP> . REG="FAB 
-LIF NB <XAB>, $S$RMS"FASET FLD= KAB ’ SRC=XAB , REG='FAB' 
[LIF NB <MRS>, SSRMS"FSET FLD=_ARS , SRC=MRS , REG="FAB' 
-1IF NB <JNL>, $$RMS-FASET FLD= JNL , SRC=JNL , REG="FAB' 
-1IF NB <MRN>, $SRMS"FSET FLD=_ARN , SRC=MRN , REG="FAB' 
LIF NB <ALQ>, $SRMS"FSET FLD="ALQ , SRC=ALQ ; REG="FAB' 
-1IF NB <DEQ>, $$RMS"FSET FLD="DEQ , SRC=DEQ ; REG="FAB’ 
-1IF NB <BLS>, S$$SRMS-FSET FLD="BLS . SRC=BLS . REG="FAB' 
-1IF NB <NAM>, $SRMS-FASET FLD=_ SRC=NAM, REG='FAB' 
[IIF NB <RFM>, SSRMS"FCSET FLD=-RFM , CNST=RFM , REG="FAB’ 
LIF WB <FSZ>. SSRMS"FSET FLD=_FSZ . SRC=FSZ , REG="FAB" 
LIF NB <BKS>, S$SRMS"FSET FLD="BKS . SRC=BKS . REG="FAB' 
“1IF NB <GBC>. $$RMS"FSET FLD="GBC , SRC=GBC , REG="FAB' 
-11F NB <LNM_MODE>, SSRMS_FVBSET FLO=_LNM_MODE, SRC=LNM_MODE, REG='FAB', FLD2=B 
-1IF NB <CHAR_MODE>, $S$RMS_FVBSET FLD=_CHAN_MODE, SRC=CRAN_MODE, REG='FAB', FLD2 
-1IF NB <FILE“MODE>, S$RMS-FVBSET FLD="FILE-MODE, SRC=FILE-MODE, REG="FAB', FLD2 
LLIF NB <CTX>> SSRMS_FSET FLD=_CTX , SRC=CTR , REG="FAB' 
[IIF NB <BSZ>. SSRMS"FSET FLD="8SZ . SRC=BSZ , REG="FAB' 
“LIF NB <BID>, $$SRMS"FCSET FLD=_BID', CNST=B10 , REG="FAB' 
-1IF NB <BLN>, $$RMS"FCSET FLD="BLN . CNST=BLN , REG='FAB' 
TIIF NB <STS>. S$RMS"FSET FLD=_STS , SRC=STS , REG="FAB' 
“AE NB <STV> aa orMs- FSET FLD="STV . SRC=STV . REG="FAB' 


CMODES 
B_ACMODES 
B-ACMODES 


M 
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; MACRO TO STORE INTO THE FIELDS OF A RAB 


“MACRO $SRAB _STORE RAB=RO,RAC=,ROP= UBF = .USZ= - 
RBF=,RSZ7=,8KT=,KBF =, PBF 


.ENDC 
[ENDM $RAB_STORE 


Reve Pete RnBe’FABe ‘Pore’ 
MBC=,TMO=.CTX=.KRF=.- 
BID=,BLN=,STS=,STV=,RFA=,XAB= FIELDS 
; THAT aREN' T IN $SRAB 
SRABDEF 
S$TYPE RAB 
. -AFLG=0 ;ZERO ADDRESSING FLAG 
: ..FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 
-1IF NB <RAC>, S$RMS_RCSET FLD=_RAC , CNST=RAC , REG='RAB' 
LIF NB <ROP>, S$RMS"RVSET FLD="ROP . BITS= =<ROPS REG= "RAB! 
LIF NB <UBF>, $$RMS-RASET FLD="UBF ; SRC=UB ares = 
S1IF NB <USZ>, S$RMS-RSET FLD=_O0SZ , srecust” ; bo RA a 
LIF NB <RBF>, S$RMS"RASET FLD=_RBF, SRC=RBF , RE eGe RA ' 
LIF NB <RSZ>, S$RMS-RSET FLD=_RSZ , SRC=RSZ , REG='RAB' 
LIF NB <BKT>, S$RMS-RSET FLD="BkT . SRC=BKT , REG='RAB' 
-LIF NB <KBF>, $$RMS"RASET FLD=_KBF’, SRC=KBF , REG="RAB' 
-1IF NB <PBF>, $$RMS-RASET FLD="PBF ; SRC=PBF ; REG="RAB’ 
LIF NB <KSZ>, SSRMS"RSET FLD=_RSZ , SRC=KSZ , REG='RAB' 
-1IF NB <PSZ>, S$RMS-RSET FLD="PSZ . SRC=PS2 . REG="RAB' 
LIF NB <RHB>, S$RMS-RASET FLD= , SRC=RHB’, REG='RAB’ 
-1IF NB <FAB>, $$SRMS-RASET FLD="FAB . SRC=FAB . REG="RAB' 
LIF NB <XAB>, SSRMS"RASET FLD= *’ SRC=XAB . REG="RAB' 
-1IF NB <MBF>, SSRMS-RSET FLO=_MBF , SRC=MBF , REG="RAB' 
-1IF NB <MBC>, S$RMS-RSET FLD="MBC . SRC=MBC ; REG="RAB' 
[IF NB <TMO>, S$RMSRSET FLD=~TMO . SRC=TMO . REG="RAB' 
SIIF NB <CTX>, $$aMS~RSET ELDS_CTX * SRC=CTX ; REG="RAB' 
-LIF NB <KRF>, SS$RMS"RSET FLD="KRF . SRC=KRF , REG="RAB' 
-1IF NB <BID>, S$RMS"RCSET FLD=_BID’, CNST=BID , REG='RAB’ 
-LIF NB <BLN>, $$SRMS-RCSET FLD="BLN . CNST=BLN , REG='"RAB' 
-1IF NB <STS>, S$RMS-RSET FLD=_STS , SRC=STS , REG="RAB' 
“LIF NB <STV>, SSRMS"RSET FLD="STV ; SRC=STV . REG='RAB’ 
-1IF EQ ..FLG,  $$TRI_WORD_MOVE RFA , <RABSW_RFA'RAB'> , _RFA 
a EQ ..FLG-1, S$TRI“WORD-MOVE RFA . <RABSWURFA(RO)> | “RFA 
F EQ ..FLG-2. $$TRIWORD-MOVE RFA ; <RABSW~ REAC RAB’ )>, “REA 


Sia tesa Bauer eRe INSEE STS 
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; MACRO TO STORE INTO THE FIELDS OF A NAME BLOCK 


* MACRO SNAM_STORE NAM= tea ie ry RSL= sf sagt SH 


ESL=,RLF=,NOP=,- 
LN=,f 1D=,01D=,WCC= ENB ,ovI “FIELDS 
THAT att et T IN $NAM 


SNAMDEF 
SSTYPE NAM 
. -AFLG=0 ;ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


Ss Ione Ie Bent ns Ion Ben a Bon Bene ma 
Szzeeee6EEEEE 
& 
wy 
- 

v 

;O 
Cad 
ad 
>] 
=z 
wn 
z 
wn 


Fue’ . Bites <FNB> , REG="NAM’ 


T 
T 
T 
T 
<FID> 
.1IF €Q Jie $$ ORD_MOVE FID , <NAMSW_FID'NAM'> , _FID | 
a EQ ..FLG=1, $SSTRIWORD-MOVE FID , <NAMSW~FID(RO)> FID | 
.ENDC 
D 
I 
1 
I 
1 
I 
1 
I 


ee 
a ee . 


CC 
Ww 
EQ ..FLG-2, S$TRI_WORD_MOVE FID , <NAMSW_FID(' NAM nS 


SSTRI_WORD_MOVE DID , 
1, $$TRI-WORD-MOVE DID , <NAM$W 
“2, SSTRI-WORD_MOVE DID 


G, $$TWO_QUAD_MOVE DVI . <NAMST_DVI'NAM'> DVI 
G-1, $$TWO_QUAD-MOVE DVI , <NAM$T_DVI(RO)> ov! 
G-2, $$TWOQUAD-MOVE DVI , <NAMST_ ~DVIC NAM! >; DVI 
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; MACRO TO STORE INTO THE FIELDS OF A DATE XAB | 
* MACRO SXABDAT_STORE XAB= weg: NXT= 
COD= ‘BLN. * sFIELDS 

RVN=,RDT=,CDT= ; THAT AREN'T IN SXABDAT 


SXABDEF 
SXABDATDEF 


SSTYPE XAB 
- -AFLG=0 :ZERO ADDRESSING FLAG 
; «sFLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


NB <EDT>, Senns =XSET FLD=_EDT , SRC=EDT , REG="XAB' 
NB <NXT>, SS$RMS-XASET FLD=_NXT , SRC=NXT’, REG='XAB' 
NB <COD>, $$RM RMS -XCSET FLD=_COD , CNST=COD , REG='XAB' 
NB <BLN>, £$RMS"“XCSET FLD="BLN , CNST=BLN , REG='XAB' 
NB <RVN>, SSRMS_XSET FLD=_R B 
NB <RDT>, SS$RMS_XSET FLD=_ =ROT . REG="XAB' 
NB T>, S$RMS_XSET FLD=_ = 


<CDT> 
XABDAT_ STORE | 


. o o . o 7 ” * @«* 
TT) pe et ee pe bt ee 
Ze ee . 
om wTaAT TH 
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P| 

“a 

" 
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; MACRO TO STORE INTO THE FIELDS OF A DATE XAB 
MACRO SXABRDT_STORE XAB=RO,NXT=,= 


COD=,BLN=,= 
RVN=,RDT= 
SXABDEF 
SXABRDTDEF 
SSTYPE KAB 
. -AFLG=0 ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 
NB <NXT>, SSRMS_XASET FLD=_NXT , SRC=NXT , REG="XAB* 


NB <COD>, SSRMS-XCSET FLD=—COD , CNST=COD', REG='XAB' 
<BLN>, S$SRMS-XCSET FLD= > CNST=BLN , REG="XAB' 
“XSET FLD=_RVN , SRC=RVN , REG="XAB' 
MS"XSET FLD="RDT , SRC=RDT ; REG="XAB" 


LIF 

lIF S 
LIF NB m 
1I1F NB =: SSRMS_XSE 
LIF NB < RDT>, $$R E 
ENDM $XABRDT_STORE 


RW 
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; MACRO TO STORE INTO THE FIELDS OF A PROTECTION XAB 


“MACRO $XABPRO_STORE xAB= RO,UIC=,PRO=,NXT= MTACC® PROT _MODE=,- 
OPT=, ACLBUF=,ACL$1Z=, ACLCTX=> 
CODeTBLN=” ACLLEN=.ACLSTS= ; UF TELOS THAT AREN'T 
; IN $XABPRO 
SXABDEF 
$XABPRODEF 
S$TYPE XAB 
. AFLG=0 :ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 
<NXT>, SSRMS_XASET FLD=_NXT » SRC=NXT , REG="XAB' 
<BLN>, $S$RMS~ eet FLD=_BLN CNST=BLN . REG="XAB' 


<PROT_MODE>, Ssnng SET FLD= _PROT_MODE , SRC= =PROT ODE , REG="XAB" 

<PROT~OPT>, $$RM “PR /REG="XAB" 
<ACLBOF>, Ssams XK 
<ACLSIi>, SSRMS_XS 
<ACLCTX>, $SRMS~XS 
<ACLLEN>, $$RMS~XS 
<ACLSTS>, $$RMS~XS 
exPrO >, $$PRO PROT= 


Te he UIC int 
x " $SRMS_XSET FLD=_UIC, SRC=UIC, REG='XAB" 


IF GT ..N-2 
-ERROR ;INVALID _UIC; 


B 
STS , SRC=ACLSTS ° REG="XAB" 
STER="XAB' 


1 
1 
1 
OD 
SERMS -XSET FLD=_GRP, SRC=#*O'X, REG='XAB' 


$SRMS_XSET FLD=_GRP, SRC=X, REG="XAB" 


++ TYB=AXCE>, ; MOD 


oeee#ee#ee#e#e#e*e##ee#e # © @#® 
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Oo 
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~" 
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-ENDC 
el 


p 
0 

<..TYP=“XEF>, ..MOD = 1 
<..TYP=*XCF>, ..MOD = 1 
<. 


agyyen RAPD. -:MOD = 1 
MS_XSET FLD=_MBM, SRC=#*0'X, REG="XAB' 


SEEEEEEREEEEREEEEEEEEE 


prone decoerneeietpaieti mnemonics en 
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SSRMS_XSET FLD=_MBM, SRC=X, REG='XAB' 
»ENDC 


gENDE 
- TMPS=$$.1MP5 + 1 


~ENDC 
-ENDM SXABPRO_STORE 
MACRO SSPRO PROT,REGISTER 


TAP 
$$.TMP1= 
~ IPP XK, <PROT> 
mi, OD 
- IRPC Y,<X> 
$$.TMP2=4 
-IIF 1DN,<Y>,<R>, a-f MP2=0 
lif iea’ste cue? ¢ 2 MP2=1 
lif IDN,<Y> > ge ie MP2= 
LiF IDN,<Y>,<D>, . TMP2= 
LIF NE $$. TMP2-4 
$$.TMP=$$.TMP \ <1a<$$.TMP1+$$.TMP2>> 
1F ~lIF NE $$. TMP & <la<$$. TMP1+$$. TMP2>>, $$. TMP1=16 
$$. TMP1=16 ;CAUSE ERROR MESSAGE 
ge 


NDC 
$$. TMP1=$%.TMP1+4 
-IIF GT $$. TMP1-16, »MEXIT 


-ENDM 
-IF GT $$. TMPi-16 
SSNARG PROT 
-IF EQ ..N=-1 
SSRMS_XSET FLD=_PRO, SRC=PROT, REG=REGISTER 
— - ERROR : INVALID PRO_FIELD SPECIFICATION: PROT; 
 iFF 


a $SRMS_XSET FLD=_PRO,SRC=#S$. TMP,REG=REGISTER 
"ENDM $$PRO 


F 
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; MACRO TO STORE INTO THE FIELDS OF AN ALLOCATION XAB 
“MACRO SXABALL_STORE KAB=RO,VOL=,ALN=,AOP=,LOC= ,RF1=,ALQ=,NXT=,~ 


COD=,BLN= -FIELDS 
:THAT AREN'T IN $XABALL 
SXABDEF 
SKABALLDEF 
SSTYPE XAB 
. -AFLG=0 ;ZERO ADDRESSING FLAG 


“PLC DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


-1I1F NB <VOL>, S$RMS_XSET FLD=_VOL , SRC=VOL , REG='"XAB’ 
-1IF NB <ALN>. SSRMS“XCSET FLD=. ay . CNST=ALN , REG='XAB' 
“LIF NB <AOP>. SERMS“XVSET FLD="AOP. . BITS=<AOP> , REG='"XAB' 
-LIF NB <LOC>, SSRMS"XSET FLD=_ oc , SRC=LOC , REG='XAB' 
LIF NB <ALQ>, S$$RMS"XSET FLD="ALQ . SRC=ALQ . REG='XAB' 
-1IF NB <NXT>, SSRMS-XASET FLD=_NXT , SRC=NXT , REG='XA3" 
-1IF NB <COD>, S$RMS-XCSET FLD="COD ; CNST=COD’, REG='XAB' 
-11F NB <BLN>, S$RMS-XCSET FLD="BLN , CNST=BLN - REG="XAB" 
-1IF NB <DEQ>, S$RMS"XSET FLD=_BEQ , SRC=DEQ , REG='XAB‘ 
-1IF NB <AID>, S$RMS"XSET FLD="AID . SRC=AID . REG='XAB' 
TIF NB <BKZ>, SSRMS_XSET FLD="BKZ , SRC=BKZ , REG="XAB" 
.1IF EQ ..FLG,  $$TRI_WORD_MOVE RFI , <XABSW_R "> 


Fi'XxX 
LIF EQ ..FLG-1, $$TRI- =WORD_MOVE RFI , <XAB$W_RFI(RO) 
IF EQ ..FLG-2, $$TRI “WORD-MOVE RFI , <XABSWLRFIC" 


-ENDC 
-ENDM $XABALL STORE 


<o> 


AB )»>, 


’ 
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; MACRO TO STORE INTO THE FIELDS OF A FILE HEADER XAB 
“MACRO SXABFHC_STORE KAB=RO.NXT=,= 


OD=,BLN= “FIELDS 
:THAT AREN'T IN $XABFHC 
SXABDEF 
$XABFHCDEF 
SSTYPE XAB 
. -AFLG=0 ;ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


LIF NB <NXT>, SSRMS_XASET FLD=_NXT , SRC=NXT , REG='"XAB" 
IF NB <COD>, $$RMS"XCSET FLD="COD ; CNST=COD’, REG="XAB" 
11F NB <BLN>, $$RMS-XCSET FLD="BLN , CNST=BLN , REG="XKAB" 
ENDM $XABFHC. STORE 


RMS32MAC MAR; 1 
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; MACRO TO STORE INTO THE FIELDS OF A SUMMARY XAB 


“MACRO $XABSUM STORE XAB=RO,NXT=,- 
COD=;BLN= 


IF NB <NXT>, SSRMS_XASET FLD=_NXT 
IF 4 <COD>, S$RMS— -XCSET FLD= “COD ; 
If NB <BLN>, SSAnS =XCSET FLD=_BLN , 
NDM $XABSUM_STORE 


-F 
; THAT AREN 


:ZERO ADDRESSING FLAG 
; ..FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


« SRC=NXT , REG="XAB‘ 
CNST=COD, REG='XAB' 
CNST=BLN , REG="XAB' 


CUO r- - rOOODaOa - _ —_—___—__ 
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; MACRO TO STORE INTO THE FIELDS OF A FAB CONTEXT XAB 
‘MACRO SXABCXF STORE XAB=RO,NXT=,- 


COD=,BLN= FIELDS 
s THAT AREN'T IN SXABCKE 
SXABDEF 
SXABCXFDEF 
SSTYPE XAB 
. -AFLG=0 ;ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


IF NB <NXT>, SSRMS_XASET FLD=_NXT , SRC=NXT , REG="XAB‘ 
IF NB <COD>, S$RMS_XCSET FLD="COD , CNST=COD , REG='XAB' 
IF NB SP SSRMS"XCSET FLD="BLN , CNST=BLN , REG='XAB' 


NDM $XABCXF 'S 
; MACRO TO STORE INTO THE FIELDS OF A RAB CONTEXT XAB 
“MACRO $XABCXR_STORE XAB=RO NXT=  CXRBUF =, CXRBFZ=~ 
COD=,BLN= FIELDS 
s THAT AREN'T IN $XABCXR 
SXABDEF 
SXABCXRDEF 
SSTYPE XAB 
. -AFLG=0 ;ZERO ADDRESSING FLAG 


--FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


NB <NXT>, SSRMS_XASET FLD=_NXT , SRC=NXT , REG="XAB' | 
NB $y SSRMS_ oACSeT FLD="COD , CNST=COD ” ; REGs KAS. | 
NB MS" XCSE ="BLN , CNST=BLN , REG='XA 

FCD=_CXRBFZ , SRC=CXRBFZ , REG="XAB" 
FLD=_ CXRBUF , SRC=CKRBUF , REG='XAB" 


inainiahdoisidtansesgunensssiaanastinsnin—ntineuensnibinsngianetltusanediesnatintO Un 
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: Macro to store into the fields of a terminal XAB. 
“MACRO SXABTRM_STORE XAB=RO,NXT=,COD=,BLN=,1TMLST=,1TMLST_LEN= 
SXABDEF 


SXABTRMDEF 
SSTYPE XAB 
. -AFLG=0 :ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


NB 
NB <COD>,$$RMS~ “XCSET FLD="COD. CNST T=COb.REG="XAB" 
NB LN. CNS STs +61 "XAB' 


A 
= 
~ 
=z 
gr 
Ws 
a 
v 
w 
bad 
=m 
zx 
“” 
=< 
2 
= 
nn 
rc 
om" 
" 
Li 
4° 
= 
ah 
D2 
| md 
(all 1) o- 
mem 
239° 


feel Ge =| aghaeaa ia pr pate 
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; MACRO TO STORE INTO THE FIELDS OF A KEY XAB 


* MACRO SXABKEY_STORE XAB=RO, ar ane ian & peel FLG=, JAN= 


KNM=, LAN=,NUL= pose gbgsb=.F Posts “POS2= POS3=,- 
POS4=, POSt= ,POS6= $126=,$17{= 
- $122=.$12 “Os6= POSTS. Rete ss sotThS. PROLOG=, COD=,BLN=,NXT= 
$XABKEYDEF 
SSTYPE XAB 
. -AFLG=0 ;ZERO ADDRESSING FLAG 


-FLG DESCRIBES WHICH ADDRESSING MODE IS DESIRED AS A PARAM 


*11F NB <PROLOG> ssrms XSET FLD=_PROLOG , SRC=PROLOG , REG='XAB' 
LIF NB <DAN>, S$RMS_XSET FLD=_DAN , SRC=DAN , REG='XAB' 
“LIF NB <DFL>. $$R RMS ox SET FLD="DFL_. SRC=DFL ; REG='"XAB' 
-1IF NB <DTP>, S$RMS"XCSET FLD=_DTP , CNST=DTP , REG='XAB" 
-1IF NB <FLG>, S$RMS"XVSET FLD="FLG . BITS=<FLG> , REG='XAB' 
LIF NB <IAN>, S$RMS-XSET FLD=_TAN , SRC=IAN , REG='XAB’ 
LIF NB <IFL>, $SRMS"XSET FLD="IFL . SRC= IF , REG="XAB! 
.1IF NB <KNM>, SSRMS"XASET FLD=_KNM , SRC=K REG='"XAB' 
-11F NB <LAN>, $SRMS_XSET FLD=_CAN , SRCSLAN » REG="XAB' 
“1IF NB <NUL>, SSRMS_XSET FLD="NUL , SRC=NUL , REG="XAB" 
S1IF NB < S$$POS"FLAG=..FLG, SRC=<POS> , REG='XAB' 

“TIF NB <Pos0S, SSRMS_XSET FLD=_POSO , SRC= , REG="XAB' 
“LIF NB < > SSRMS"XSET FLD="POS1 . SRC=POS1 ; REG='XAB' 
-1IF NB <POS2>, $SRMS-XSET FLD="POS2 . SRC=POS2 ; REG='"XAB' 
.1IF NB <PCS3>, SSRMS-XSET FLD="POS3 . SRC=POS3 . REG='XAB' 
LIF NB <POS4>, S$SRMS"XSET FLD="POS4 . SRC=POS4 ; REG="XAB’ 
-1IF NB <POS5S>, $SRMS"XSET FLD="POSS . SRC=POS5 ; REG='XAB' 
“LIF NB <POS6>, SSRMS-XSET FLD="POS6 , SRC=POS6 . REG="XAB' 
-11F NB <POS7>, $SRMS°XSET FLD="POS7 , SRC=POS7 | REG='XAB' 
[IIF NB <REF>, SSRMS_RSET FLD=_REF , SRC=REF , REG="XAB' 
*1IF NB <SIZ>, ssi) “FLAG=..FLG, eeateesize REG='XAB' 

[LIF NB O>, S$RMS_XSET FLD=.SIZ0 , SRC=$120 , REG="XAB' 
-LIF NB <SIZ1>, S$RMS-XSET FLD=~SIZ21 , SRC=SIZ21 . REG="XAB’ 
-1IF NB <S122>, $$SRMS"XSET FLD= =S12¢ : SRC=S12Z¢ * REG="XAB’ 
LIF NB <SIZ23>, SSRMSXSET FLD="S173 , SRC=SIZ3 . REG="XAB' 
LIF NB <SIZ24>, SSRMS"XSET FLD="S124 . SRC=S124 ; REG="XAB' 
LIF NB <SIZ75>, $SRMS"XSET FLD="S175 . SRC=SIZ5 . REG="XAB’ 
-1IF NB <SIZ6>. $S$RMS-XSET FLD="S126 . SRC=$126 ; REG="XAB 
-1IF NB <SIZ27>, S$SRMS-XSET FLD=~S127 . SRC=SIZ27 . REG="XAB’ 
-11F NB <COD>, S$RMS_RCSET FLD="COD , CNST=COD , REG='XAB' 
-1IF NB <BLN>, $$RMS"XCSET FLD="BLN . CNST=BLN . REG="XAB' 
LIF NB <NXT>, S$SRMS-XASET FLD="NXT © , SRC=NXT’ , REG='XAB' 
TENDM SXABKEY STORE ~ 
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; Macro to store into the fields of a Journal XAB 


“MACRO $XABJNL_STORE XAB= RO, JOP= 
S=,AlS=,AfS=,BIA=,AIA=,ATAS, = 


ais 
SXABDEF 
SXABJNLDEF 
SSTYPE XAB 
se AF LG=0 
; .-FLG Describes which addressing mode is desired as a param 
-11F NB <NXT>, SSRMS_XASET FLD=_NXT,SRC=NXT,REG="XAB' f 
- LIF NB <COD>, SSRMS_XCSET FLD=_CO > CNST=COD,REG='XAB’ 
-11F NB <BLN>, SSRMS_X¥CSET FLD=_BLN,CNST=BLN,REG='XAB‘ 
-LIF NB <JOP>, S$RMS"XVSET FLD=—JOP,BITS=<JOP>,REG='XAB' 
-1IF NB <BIS>, SSRMS_XSET FLD=_B1S,SRC=BIS,REG='X 
-11F NB <AIS>, SSRMS_XSET FLD=_AIS,SRC=AIS,REG="XAB‘ 
-11F NB <ATS>, SSRMS_XSET FLD=_ATS,SRC=ATS,REG="XAB' 
-1LIF NB <BIA>, SSRMS_XASET FLD=_BIA,SRC=BIA,REG='XAB' 
-1I1F NB ate SSRMS_XASET FLD=_AIA,SRC=AIA,REG="XAB' 
inn 7. RMS_XASET FLD=_ATA,SRC=ATA,REG='XAB' 


M 
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; LEVEL-2-AND-3 MACROS TO STORE INTO FIELDS OF RMS DATA STRUCTURES AT RUN-TIME 


THIS IS A GENERAL PROCEDURE TO ACTUALLY GENERATE THE “MOV" OR 'CLR' CODE 
‘MACRO rr’ sfove PTR, BLOCK ,FIELD, SOURCE ,FIELD2 


-1lIF NB ETE OE »LEN=5 
-1IF DF “BLOCK'B'FIELD', .LEN=1 
-1IF DF *BLOCK'W'FIELD', .LEN=2 
-1IF DF "BLOCK*L FIELD", .LEN=4 
.1F DF "BLOCK'Q*FIELD' ; QUADWORD? 
«NTYPE ..TYP,SOURCE 
IF <.. TYPR*XFO>=*x50 zIF REGISTER 
.. TMP=,. TYPR*XF :GET REG # 
IF GT ..TMP-11 
. ERROR ILLEGAL USE OF REG : SOURCE; 
. -AFLG=0 
.MEXIT 
~ENDC 
-ENDC 
-LEN=8 ' 
~ENDC | 
-1F €Q .LEN 
- ERROR ;"FIELD' IS UNDEFINED; .! 
.MEXIT 
~ENDC 
IF EQ .LEN-5 : e bit field 
ae INSV *SOURCE',#'BLOCK'V'FIELD',# BLOCK’ S'FIELD', BLOCK’ 'FIELD2°PTR' | 
.1F IDN <SOURCE><#0> : IMMEDIATE ZERO : 
-1IF €Q .LEN-1, CLRB "BLOCK'B'FIELD'PTR' 
-1IF EQ .LEN-2, CLRW "BLOCK'W'FIELD'PTR’ 3! 
-1IF EQ .LEN@-4, CLRL "BLOCK'L'FIELD'PTR' 3 
-1IF EQ .LEN@-8, CLRO "BLOCK'Q'FIELD'PTR' ‘ 
1FF ORDINARY STORE | 
-1F EQ ..AFLG 
-1IF EQ .LEN-1, MOVB ‘SOURCE’,"BLOCK'B'FIELD'PTR' ‘ 
LIF EQ .LEN-2, MOVW ‘SOURCE’, "BLOCK'W'FIELD'PTR' 
-1IF EQ .LEN-4, MOVL ‘SOURCE’, ‘BL CK'L'FIELD'PTR* 
-1IF EQ .LEN-8, MOVQ "SOURCE', *BLOCK'Q'FIELD'PTR' 
1FF sSTORE ADDRESS 
-1IF €Q .LEN-1, MOVAB "SOURCE’, "BLOCK'B'FIELD'PTR' 
T1IF EQ .LEN-2. MOVAW ‘SOURCE’. "BLOCK'W'FIELD'PTR' 
LIF EQ .LEN@-4, MOVAL "SOURCE’, "BLOCK'L'FIELD'PTR' 
cmt EQ :LEN-8, MOVAG ‘SOURCE’.*BLOCK'O'FIELD'PTR' 
. -AFLG=0 
~MEXIT 
.ENDC 
.ENDC 
. -AFLG=0 


N | 
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.ENDM S$RMS_MOVE 
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«MACRO SS$TRI_WORD_MOVE SRC,DATA,FLD 
-1F IDN 2SRC><#0> 
;SOURCE IS 


.NTYPE ..TYP,S 

vIF oo YEO KFO>="x50 
3; SOURCE is A REGISTER 
TMP=<. .TYP=*x50>¢1 
F TMP=12 


mn 
Do 


4 


-ENDC 
MOVL be *DATA’ 
ris \..TMP , <4#"DATA'> 


-ENDC 
. TMP=,. TYP&“*X FO 
IF EQ <, STRP=*X70>_ 
;SOURCE IS AN AUTO DECREMENT 
MOVL 'SRC',2+*DATA’ 
ROWN *SRC - DATA‘ 


-IF EQ <..TMP=*x80> 
;SOURCE IS AN AUTO INCREMENT 
MOVL *SRC’,*DATA' 
MOVW 'SRC',4+'DATA® 
EXIT 


0 
; SOURCE > LACEMENT MODE 
E 


*e © 6 © =e @¢ 


Mm ee ee CE FT 


E 
on LEN, .MEXI 
-ENDM $$TRI_WORD_MOVE 


-MACRO SEMIT REG,DEST 
MOVW R'REG', DEST’ 
.ENDM SEMIT 


- MACRO sbinienamal SRC ,DATA,FLD 


D 
N 
D 
F 
F 
F 
F 
R 


? 
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sMACRO TO HANDLE 3=WORD FIELDS 
sJUST CLEAR FIELD 


CHECK TYPE OF SRC 


sNEXT_REGISTER 
:REG TOO BIG 
; ILLEGAL USE OF REGISTER : SRC ; 


DONE W/ SRC=REG 
: ISOLATE ADDR MODE 


;DONE W/ SRC=DECR 


;DONE W/ SRC=INCR 
;USED AS’ FLAG 


Pp 
Q <..TMP=*XAQ>, SSTRI_DISP SRC,DATA,FLD ;BYTE DISPLACEMENT 
Q <..TMP=*Xx60>, S$$TRI- -DISP SRC,DATA,FLD ;DEFERRED MODE 

Q <, pre ere SSTRI-DISP SRC,DATA,FLD :WORD DISPLACEMENT 


; rH SRC ** == ILLEGAL ADDRESSING MODE FOR FLD; 


RC> 
-1iF NE .LEN, .MEXIT 
F TMP><*> 
- ERROR ; ## SRC ** == ILLEGAL ADDRESSING MODE FOR FLD; 


ee ee ee ee ee 


| 
| 
| | 
j 
= | 
~m 
| 
@ 
o 
o 
a 
La) 
m 
. 
Woo 
N 
oO 
oOo 
~ 
- 
w 
a 
oa 
= 
f 
a 
w 
” 
a 
oo 
- 
<< 
— 
<x 
a 
+ 
_w 
— 
e 
ac 
” 
+ 
w 
zs 
o> 
oO 
= 
~ 
vu 
a2 
aw 
wo 
7 


.ENDM S$TRI_DISP 
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-MACRO S$$TWO_QUAD_MOVE SRC,DATA,FLD sMACRO TO HANDLE 16<BYTE FIELDS 
ssourte is" n. C><A0> "JUST CLEAR FIELD 


CLRQ *DATA’ 
eT 8+"DATA* 


dc 
eNTYPE «s TYP, SRC 
TMP,  TYPE*XFO ; ISOLATE ADDR MODE 
IF EQ <.. TMP=-*xX70> 
; SOURCE is AN Pith DECREMENT 
MOVQ ‘SRC*,8+'DATA’ 
eS » DATA‘ 


~ENDC ;DONE W/ SRC=DECR 
.1F EQ <,..TMP=-*X80> 
;SOURCE IS AN AUTO INCREMENT 
va 'S — TA‘ 
MOVQ ‘SRC’, * B+! DATA’ 
-MEXIT 
~ENDC ;DONE W/ SRC=INCR 
; SOURCE ron are MODE 
LIF EQ <..TMP=*XA0>, SSQUAD_DISP SRC,DATA, rLp sBYTE DISPLACEMENT 
LIF EQ <..TMP=*X60>, S$QUAD_DISP SRC,DATA,FLD 70 
-1IF EQ Cog PwC OP S$SQUAD_DISP SRC, DATA.FLD ;WORD DISPLACEMENT 
-lIF NE .LEN, .MEXIT 
ERROR ; ®* SRC ** == ILLEGAL ADDRESSING MODE FOR FLD; 


. 0 
.ENDM $$TWO_QUAD_MOVE 


-MACRO $$QUAD_DISP SRC ,DATA,FLD 
.IRPC_..TMP,<SRC> 

-1iF NE .LEN, .MEXIT 

LIF IDN <.. TMP><*> 


-LEN 

MOVQ "SRC", *DATA’ 
MOVO 8+'SRC',8+'DATA® 
-ENDC 


.ENDM $SQUAD_DISP 


wm 


—_—_——— _ a oe 
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-MACRO $SPOS SRC,REG 
SSNARG SRC 
if € 


.sNo1 
-1IF EQ ..FLG-2, $$TWO_QUAD_MOVE SRC , <XABSW_POS('REG')> , POS 
-LIF EQ ..FLG=1, $$TWO-QUAD-MOVE SRC . <XABS$W7POS(RO)> , _POS 
ip THIF EQ «FG, $$STWO_QUAD_MOVE SRC’, <XAB$Q_POS'REG'S > _POS 
$$. TMP=0 
IRP X,<SRC> 
-1F NB <X> 
SPEMIT X , REG , \$$.TMP 
ENDC 
$$. TMP=$$. TMP +1 
.ENDM 


-ENDC 
-ENDM S$$POS 
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-MACRO $$S1Z SRC,REG 
SSNARG SRC 
IF . «N= 


~1F IDN <SRC><#0> 
-1IF €Q oofLGme. CLRQ XAB$B_SIZ('REG') 
~-TIF EQ ..FLG=1, CLRQ XABS$B_S1Z(RO) 
FF -1IF EQ ..FLG, CLRQ XABSB_SIZ'REG' 
LIF EQ ..FLG=-2, MOVQ ‘SRC’, Rite SIZ('REG') 
~-LIF EQ ..FLG=1, MOVQ ‘SRC',XAB$B_SIZ(RO) 
-1IF EQ ..FLG, MOVOQ ‘SRC',XABSB_SIZ'REG' 
~ENDC 4 
~IFF 
$$. TMP=0 
~IRP XK,<SRC> 
~1F NB <xX> 
END SSEMIT X , REG , \$$.TMP 
$$. TMP=$$.TMP+1 
-ENDM 


.ENDC 
-ENDM $$SIZ 
| 
.MACRO SSEMIT SRC,REG.N | 


LIF €Q ..FLG-2, MOVB *SRC* .XABSB_SIZ'N' ('REG") 

-IIF EQ ..FLG-1, MOVB ‘SRC’ ;XABSB_ SIZ'N* (RO) 

-lIF EQ ..FLG,  MOVB ‘SRC’, ;XABSB_ SIZ'N'('REG") 
-ENDM $SEMIT 
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THESE ARE THE INTERNAL MACROS TO HNANDLE THE FAB 
SETUP FOR SSRMS_MOVE 


MACRO SSRMS_FSET FLD,SRC,REG 
-ofLGn¢. SSRMS_MOVE PTR=('REG') , BLOC 


LIF €0 K=FABS , FIELD=FLD 
LIF EQ ..FLG-1, $$RMS-MOVE PTR=(RO) * BLOCK=FABS . FIELD=FLD 
S1IF EQ K=FABS , FIELD=FLD 


.-FLG, | $SRMS"MOVE PTR='REG' ; BLOC 
.ENDM SSRMS_FSET 


; Insert variable Length bit field into a field. 


“MACRO S$RMS_FVBSET FLD,SRC,REG,FLD2 
-IIF €Q°..FLG=2, $$RMS_MOVE PTR=("REG') , BLOCK=FABS 
"TIF EQ LLFLG=1. SSRMS7 “MOVE PTR=(RO) ; BLOCK=FABS 
-1IF EQ ..FLG, © $$RMS“MOVE PTR="REG' ; BLOCK=FABS ; 
.ENDM SSRMS_FVBSET 


; MACRO TO DETERMINE IF CONSTANT KEYWORD IS DESIRED 


“MACRO SSRMS_FCSET FLD,CNST,REG 
e gis . TYP, CNST 


»- TYP=*XEF>, ..MOD 
~- TYP=*XCF>, ..MOD 
..TYP=*XAF>, ..MOD 


«NCHR ..TYP,CNST 
2 LT <..TYP-9> 
.IF DF FABSC_‘CNST' 
sont FSET FLD, #FABSC_'CNST",REG 


* 


AAAS 
unan 
tad ad 


oC 
$$RMS_FSET FLD,CNST,REG 
-ENDM SSRMS_FUSET 


; MACRO TO DETERMINE IF BIT KEYWORDS ARE DESIRED 


“MACRO $$RMS_FVSET FLD,BITS,REG 
SAMS BITS FAB. <BITS> 


pote [IF EQ ..N-1, $$RMS_FSET FLD,BITS,REG ;ONLY IF ONE ARG 
SSRMS_FSET FLD, #$$.TMP,REG 
LENDM $$aMS OFVSET 
; MACRO TO SIGNAL THAT THE ADDRESS IS DESIRED 
“MACRO $$RMS FASET FLD, SRC,REG 


es F pad SET FLAG 
SSRMS_FSET FLD,SRC,REG 


>. 
aan 
_— 
monn 
rr 
Jo°9 
wun 
a a a) 
ill, esl, 
i= hh 


.* * 


.* *. © 


SOURCE=SRC 
SOURCE=SRC 
SOURCE=SRC 


SOURCE=S 
SOURCE=S 
SOURCE=S 
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-ENDM SSRMS_FASET 


H 
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; THIS MACRC COUNTS THE NUMBER OF ARGS PASSED IT 
“MACRO SENARG ancl ARG2 » ARGS gARGS, ARGS ,ARG6,ARG7,ARG8,ARGI,ARG10,- 
-ARGI ARG 6. °ARG17,ARG18,AR619 “ARG? 0,- 
Anat Anes ARG) i’ -ARG| -ARGEE "ARG t. ARG28 ARG $: ARG $0.7 
anes * ARG. ARG * ARG34ARG35 ARGge *ARG37 ARG *ARG39.ARG40- 
NARG ..N 
.ENDM SSNARG 
-MACRO SS$RMS_BITS BLK,BITS 
$$. TAP=0 
SSNARG BITS, 
.NTYPE ..TYP,BITS 
.-MOD = 0 
.1IF EQ <..TYP=*xXEF>, ..MOD = 1 
w1IF EQ <..TYP=*XCF>, ..MOD = 1 
-lIF EQ <..TYP=*KXAF>, . -MOD = 1 
.IF NE ..MOD 
..TYP = 0 
.IRPC X,BITS 
IF IDN X,<+#> 
..TYP = 1 
.MEXIT 
.ENDC 
/ENDM 
LIF E T 
-NCHR ..TYP,BITS 
; .TYP=9> 
IF DF BLK'$vV_ "BITS 
Rd TMP=<19BLK'*$V_'BITS> 
° L 
ENDC 
.ENDC 
-ENDC 
J 1FF : IT'S IN FORM <A,B,..> 
.IRP X,<BITS> 
.NTYPE ..TYP,X 
..MOD = 
1lIF EQ <..TYP=*XEF>, .- -MOD = 1 
-IIF EQ <..TYP=*XCF>, ..MOD = 1 
w1IF €Q <..TYP=*XAF>, ..MOD = 1 
.I1F NE ..MOD 
.NCHR ..TYP,X 
IF LE <..TYP=9> 
IF DF BLK'S 
$$. TMP=$$- The 1claeLK® $vV_'X> 
| . ERROR SUNDEFINED BIT VALUE: X; 
ERROR ;BI1 VALUE TOO LONG: X; 


2 | 


*@eeeeeeteeteeteeeteeeeteeeee + 
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ERROR WRONG ADDRESSING MODE: X; 
-ENDC 


+ 


~ENDC 
.ENDM $SRMS_BITS 


4 
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; This is a macro to determine which type of addressing should be used. 


; directive returns register deferred mode. Therefore we must use r0 to | 
; avoid problems in the $$rms_move macro, which would otherwise generate 
; bad offset definitions. 


MACRO SSTYPE REG 


; If user uses displacement mode with a displacement of zero, the .ntype 


“NTYPE ..TYP :SEE IF PTR IS REGISTER 
-1F NE <..TYPR*KFO>=*x50 
"iF EQ <.. TYPR*KFO>-*x60 SIF (RN) 
; FLG= :JUST WANT REG 
« oN=<,. TYPE “XOF> 
TIRP X.<\ 


«N> 

-IF DIFFERENT (R'X) REG ;IF DIFFERENT, ZERO DISP... 
» -FLG=1 3+-SO0 USE RO INSTEAD 

MOVAL *REG',RO 


- ENDC 


= .ENDR 
; .IF €Q ..TYP SCHECK IF IMMEDIATE 
a MOVL "REG',RO 
/ .IF EQ <..TYP=*x1F> sALSO IMMEDIATE 
MOVL "REG',RO 
IFF 
ENDC 
.ENDC 
- FLG=1 :WANT (RO) 
ENDC 
olFF 
. -FLG=2 :WANT ("REG") 


| 
| 
: MOVAL 'REG',RO | 
LENDC 
“ENDM SSTYPE 
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; THESE ARE THE MACROS TO HANDLE THE RAB 
“MACRO SSRMS RSET FLD,SRC,REG 


LIF €Q .2FLG-2, SS$RMS MOVE PTR=("REG') , BLOCK=RABS , FIELD=FLD , SOURCE=SRC 
~-LIF EQ ..FLG=1, SSRMS"MOVE PTR=(RO) » BLOCK=RABS , FIELD=FLD , SOURCE=SRC 
-11F EQ ..FLG,  SSRMS"MOVE PTR="REG' , BLOCK=RABS , FIELD=FLD , SOURCE=SRC 


-ENDM SSRMS_RSET 
-MACRO sor aed pee cyst. oREG 
D 
«-TYP=*XEF>, ..MOD 
«- 1YP=*XCF>, ..MOD 
-.TYP=“XAF>, ..MOD 
TYP, eENSt 

P=9> 


F OF RABSC Hy 
+ sop RSET FLD, #RABSC_‘CNST" REG 


— 


.ENDC 
$S$RMS_RSET FLD, CNST,REG 
-ENDM $SSRMS_RTSET 


.MACRO $$RMS_RVSET FLD. BITS,REG 
$S$RMS_BITS RAB.<BITS> 
.1F €6 $$.TMP 
-IIF EQ ..N-1, S$RMS_RSET FLD.BITS,REG ;ONLY IF ONE ARG 
SSRMS_RSET FLD, #$$.TMP,REG 
.ENDM sims _RVSET 
;MACRO TO SIGNAL THAT THE ADDRESS IS DESIRED 
“MACRO $$RMS RASET FLD, SRC,REG 


$$RMS_RSET FLD, SRC,REG 
-ENDM S$$RMS_RASET 


SET FLAG 


. 
[eal 


m 
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; THESE ARE THE MACROS TO HANDLE ALL OF THE XAB'S : 
“MACRO S$SRMS_XSET FLD, SRC.REG | : 
LIF €Q .2FLG-2, $SRMS_MOVE PTR=("REG') , BLOCK=XABS , FIELD=FLD , SOURCE=SRC 
-LIF EQ ..FLG-1, S$RMS_MOVE PTR=(RO) , BLOCK=XABS , FIELD=FLD , SOURCE=SRC . 
LIF EQ ..FLG, © S$RMS"MOVE PTR='REG’ | BLOCK=XAB$ . FIELD=FLD ; SOURCE=SRC 
-ENDM SSRMS_XSET | -E 
-MACRO Sons gCsET Et FLD, CNST,REG : 
;.MOD = "4 om 
LIF EQ <..TYP=*XEF>, ..MOD = 1 
LIF EQ <..1YP=*xXCF>, ..MOD = 1 
LIF EQ <..TYP=*XAF>, ..MOD = 1 
IF NE ..MOD 
.NCHR ..TYP,CNST 
IF LT <..TYP=9> 
IF DF XABSC_"CNST' 
SSRAS_XSET FLD, #XABSC_"CNST’ REG 
-MEXIT 
~END 
gen 


END | 
$$RMS_XSET FLD, CNST,REG | 
-ENDM SSRMS_XCSET 


-MACRO $SRMS_XVSET FLD,BITS,REG 
$S$RMS_ BITS KAB.<BITS> | 


‘an LIF EQ ..N-1, S$RMS_XSET FLD.BITS,REG ;ONLY IF ONE ARG | 
; SSRMS_XSET FLD. #$$.TMP,REG | 
.ENDM SAMS XVSET 
;MACRO TO SIGNAL THAT THE ADDRESS IS DESIRED | 
“MACRO S$RMS_XASET FLD,SRC,REG 
G=1 SET FLAG 


| 
$$RMS_XSET FLD, SRC. REG 
j 


-ENDM $S$RMS_XASET 
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THESE ARE THE MACROS TO HANDLE THE NAMBLOCK 


-1IF EQ .°FLG-2, SSRMS -MOVE PTR=("REG') , BLOCK=NAMS , FIELD=FLD , SOURCE=SRC 
~1IF €Q “TLE + SSRMS"MOVE PTR=(RO) » BLOCK=NAM$S , FIELD=FLD , SOURCE=SRC 
TIF EQ ..FLG, ° $$RMS7 “MOVE PTR='"REG’  BLOCK=NAMS , FIELD=FLD , SOURCE=SRC 


-ENDM SSRMS_NSET 
-MACRO sor ed 
MOD 


D,CNST,REG 
CNST 


L 

YP=*XEF>, ..MOD 
YP=*XCF>, ..MOD 
YP=*XAF>, ..MOD 


.» TYP, CNST 
.TYP=9> 
F OF NAMSC_'CNST* 
a NSET FLD, #NAMSC_'CNST',REG 


nun 
—- 


NDC 
$SRMS_NSET FLD, CNST,REG 
-ENDM SSRMS_NTSET 


.MACRO $$RMS_NVSET FLD, BITS, REG 
SSRMS BITS NAM, <BITS> 


-1IF EQ ..N-1, S$SRMS_NSET FLD,BITS,REG ;ONLY IF ONE ARG 
SSRMS_NSET FLD, #$$.TMP,REG 
-ENDM ssiins -NVSET 
:MACRO TO SIGNAL THAT THE ADDRESS IS DESIRED 
* MACRO SSRMS cost FLD,SRC,REG 


SSRMS_NSET FLD,SRC,REG 
-ENDM $$RMS mNKSET 


SET FLAG 
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